From: Glenn Morris Date: Fri, 3 Aug 2007 03:19:36 +0000 (+0000) Subject: (fortran-font-lock-syntactic-keywords): Fix off-by-one error in X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17552 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=93a9ab3ecf704eaf6f28fc478f00152d9ceab02d;p=emacs.git (fortran-font-lock-syntactic-keywords): Fix off-by-one error in previous change. --- diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 37db236c99f..97f4c1c2616 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -441,7 +441,7 @@ Consists of level 3 plus all other intrinsics not already highlighted.") This varies according to the value of `fortran-line-length'. This is used to fontify fixed-format Fortran comments." `(("^[cd\\*]" 0 (11)) - (,(format "^[^cd\\*\t\n].\\{%d\\}\\([^\n]+\\)" fortran-line-length) + (,(format "^[^cd\\*\t\n].\\{%d\\}\\([^\n]+\\)" (1- fortran-line-length)) 1 (11)))) (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1